home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo nr.1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  74 lines
  1. 1 poke53280,0:poke53281,0
  2. 10 t$="[159][147]       [196]emo [206]r.1 fuer [208][204][207][212]-[194][193][211][201][195]        "
  3. 20 printt$
  4. 30 print"   [205]it disem [208]rogramm koennen [212]orten-"
  5. 40 print"   grafiken erstellt werden."
  6. 50 print"   [193]us wievielen [211]ektoren soll"
  7. 60 print"   die [199]rafik bestehen (2-9) ?"
  8. 70 (NULL):an$=""
  9. 80 : (NULL) 31,11,1,1,an$
  10. 90 : an = val(an$)
  11. 100 (NULL) an <= 9 and an > 1
  12. 110 printt$
  13. 120 print"[206]r.[194]ezeichnung [215]ert   [200]ervorheben (j/n)"
  14. 130 for i = 1 to an
  15. 140 : (NULL) 0,5+i,i
  16. 150 : (NULL) 3,6+i,"[163][163][163][163][163][163][163][163][163][163][163]"
  17. 160 : (NULL) 3,5+i,11,0,be$(i)
  18. 170 : (NULL) 15,6+i,"[163][163][163][163][163][163][163][163][163]"
  19. 180 : (NULL) 15,5+i,9,2,we$(i)
  20. 190 : if val(we$(i)) = 0 then 180
  21. 200 : we(i) = val(we$(i))
  22. 210 : su = su + we(i)
  23. 220 : (NULL) 30,6+i,"[163]"
  24. 230 : he$ = "n"
  25. 240 : (NULL) 30,5+i,1,0,he$
  26. 250 : if he$ <> "j" and he$ <> "n" then 230
  27. 260 : if he$ = "j" then we(i) = -we(i)
  28. 270 next
  29. 280 print t$
  30. 290 print"   [215]ie soll die [213]eberschrift lauten ?"
  31. 300 (NULL) 10,11,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  32. 310 (NULL) 10,10,20,0,ue$
  33. 320 (NULL) 2
  34. 330 (NULL) 3
  35. 340 (NULL) ue$
  36. 350 (NULL) 0,-200
  37. 360 (NULL)
  38. 370 (NULL) 479/2,0
  39. 380 for i = 1 to an
  40. 390 : if we(i)<0thenhe=39:we(i)=abs(we(i))
  41. 400 : pr = 100 / su * (we(i))
  42. 410 : wi = int (pr * 3.6 + .5)
  43. 420 : ew = ew + wi
  44. 430 : hi = sw + (wi / 2)
  45. 440 : if pr < 1 then 530
  46. 450 : (NULL) i
  47. 460 : (NULL) 0,0,he,he,hi,hi,1
  48. 470 : (NULL) 0,0,200,sw,ew,1
  49. 480 : gr = 4
  50. 490 : if pr < 3 then gr = 8
  51. 500 : (NULL) 0,0,100 + he,100 + he,hi,hi,1
  52. 510 : pr = int (pr + 0.5)
  53. 520 : (NULL) -10,-10,gr,0,mid$ (str$ (pr),2) + "%"
  54. 530 : sw = ew
  55. 540 : he = 0
  56. 550 next
  57. 560 (NULL) 0,-250
  58. 570 (NULL) 4
  59. 580 (NULL)
  60. 590 for i = 1 to an
  61. 600 : (NULL) i
  62. 610 : pr = int((100/su*we(i))+.5)
  63. 611 (NULL) ""
  64. 620 : pr$ = right$("  "+str$(pr)+"%",4)
  65. 630 : gosub 680
  66. 640 : (NULL) "   "be$(i)"   "pr$" = "we$(i)
  67. 650 next
  68. 660 print"[147] [197]nde "
  69. 670 end
  70. 680 we(i)= int(we(i)*100+.5)/100
  71. 690 we$(i)=right$("         "+str$(int(we(i))),9)
  72. 700 we$(i)=we$(i)+"."+left$(mid$(str$(we(i)-int(we(i)))+"00",3),2)
  73. 710 return
  74.